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% SECTION 08 « INIT 

%%%%%%%%%%%%%%%%%%%%%%%%%% 
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%%%%%%%%%%%%%%%%%%%%%%%%%%%X%%%%%% 
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COMMENT ARRAY SIZES; 
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% GLObML TEMPORARILS 
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%**•***************•**•********************« ************** 

REAt STREAM PROCEDURE GET ABSAOURC WO ) ; 
BEGIN 

oh«wd; getabsaddr«»di;x 

END fi FTA BSADDR n 



REAu STREAM PROCEDURE OECVCN*?);* 



VALUE N^P;% 



x*************«****«*#*** ******##*«**** ********** 
BE6IN sii*Loc p; Di»»uoc oecvjx 

DiiaDi»6; DH»Di«i^; DsisN oecix __^___ 



END OECVn 

x****************************«*************^*******^***** 

INTEGFR STREAM PRnrEnuRi^ nr.v ( rtU. PQS ) > as ^ 



VALUE Pos;» 

COMMENT CONVERTS 2 DEC AT W0«PQSCPOS) TO OCT> 

*****,.**»***»**■*»;♦.# ,#***'***;***»***'**;*'»*»****;^*****:*^ 



BEGIN Slt»WD; SI»BSI+P0i); 

OIJsLOC OCV; DSJs 2 OCT; 
END OCV;i>! 



X********************************************************** 

INTEGER STREAM PROCEDURE SCNCPTRV*PTR#ACCUM);x 
VALUE PTRVJ« 



COMMENT RETURNS IFF 3TRING OF ALPHA, 
RETURNS THE SPEC CHAR IFF ONE FOUNDJ* 

Xjr**** *- * *********** ******* * ** ********* *************t1 l t****** 



BEGIN 

LABEL L;X 
.- STIaPTRVfit 



L: if SC * " " THEN BEGIN 

IF SC s ALPHA THEN* 
BFGIN COMMENT NAMTSi 



upsi; GU u end; 



01 «*ACCUM;0S:3LlT"i''; 0Sts7 LIT •• «; DI »«0I«7; X 

7(DSi«»cHR; if SC 'ALPHA THEN ELSE JUMP OUT);X 
END ELSE 



BEGIN COMMENT SPEC CHaR; 

oi»*LOc SCN ; ui:aoi+7; 
DS>«rHR;x 



END SPEC CHAR HANDLING! 
Oll»PTRfPTl*VI»Si; SIt»tiC PTRV^ osi«wos; 



E ND SC ANJ l 



X**************************************** ****** ************* 
REAL STREAM PROCEDURE NUMBERSCNC PTRV* PTR ) ;X 
VALUE PTRV;X 



V WL.UU r I n w / a 

COMMENT SCANS OFF NEXT NUMBER* CONVERTS TO REAL; 
X*********************************************************** 
BEftlN LABFL Lt 



_LL 



LOCAL a;x 

siMPTRv; Di«« Loc numberscn;* 

IF SC LSS ^C* THEK BEGlM UPSi; GU L ENDJX 



At«si; 

7(UPSi;uptali,y; 

TF SC LSS **«" THFM JUMP nilTIJ 



sii«a; ajstally; ds«»a oct; 
At»si; di»»(»tr; sii»loc a; osiawus;x 
END numberscn;x 



X******************************* 
BOOLEAN stream PRQCEOURE COMPARECN* A*8)i* 
VALUE Nf , 



************************* 
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00022800 
00022900 
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h 



COMMENT RETURNS TRUE IFF AKRAY A SORTS lO^iER THAN Bi 

RFGTN I ART! YTT! 



BE^I N LABEL Xl Tf 



00024000 
OOOS'ilOO 



LOCAL SA,DA;X 
SItsA; DIt«BJ 



SAIsSi; DAJsDWX 
IF 7 SC 6TR DC THEN 
RETiTN TAI, LYt^O; JUMP 



0002^300 

00024400 
Q002«'5Qn 



DI««0A; Sll.SAJ 

IF 7 SC LSS OC THEN 

RFfiTN TALLY I «i; JUMP 



CUT TlJ XIT LNDfl 
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TALLYJ»i;% 
XIT tCOMPAREt«TALLY;x 
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VALUE Hit 

COMMENT RETURNS TRUE IFF ARRAY A»B FOR N ^(ORDS; 

' **** ****** it**************************** knlmt-kiiUllriHl 



%****** 

BEGIN LABEL XIT; 

SitsA; DII9 Bit 

Nfupsnupnir 



00025800 
00025900 
OOQ?6000 



IF 7 SC NEQ OC THEN 

BEGIN TALLYl=0; JIMP OUT TO XIT END);* 

TALLY l«i;3L 



00026100 
00026200 
OOQ26300- 



xit»equal««tally;x 
END equal;* 

%**1i*******t1l1i*1i**** It i,*******-!!* it ************ ***♦***»***«**»** 

STREAM PROCEDURE MOVECN#A,B); VALUE N;x 

%******************************************ic**********1,***.t,** 

BEGIN sti«a; Dn=n; cst=N wns end muvfjji; 
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X*********^!***** ********* ******* 

INTEGER PROCEDURE tIMER(T);% 

VALUE Ti RFAL Tii, 



***************************** 



00027000 
00027100 
000^7200 



COMMENT « TAKES 
CONVERTS AS 



BINARY TIME 
FOLLOWS : 



IN T IN 1/60 SECONDS AND 



00027300 
00027400 
00027*^00 



JOB TIMECT) LSS V MINUTE? 



TIMERt 12*123 Sl» 
TI«£Rt24il23 U. 

TTMrwraftii?! t u i/6n seconqs 



SECONDS 



00027600 
00027700 
0002780,0 



JOB 



TIMECT) GTR 1 
T1MERC12J123 



MINUTE? 
5 Js HOURS 



00027900 
00028000 
00028100 



TTMERr?4n,?3 n» MINUUS 



TIMERC36I12) tts SEeONOS;* 

% * ii *****************************$*************** <lHt* * 1i ****** * 

BEGIN INTEGER H>M,S>SS>AJ» ■ '-■■•...■■ ■ 'v :■'■ '■.-■ 



00028200 
00028300 
00026400 



Ht«A oiv 216000; a:»a mqd 2i6ooo; 

MleA DIV 3600; AtaA MOD 3600;!>i 



StsA DIV 60; SStsT HOO 60;% 
Ht«DECV(3«H);X 

Mt»DECV(2^M);» 
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00028600 
0Q02#70a 

00028800 
00028900 
0Q O 2 9 0Q 



00029100 

00029200 
00Q29iQ0 



52 
53 



56 



Si«0ECV(2f S};x 
SSl»0ECV(2*SS);x 
I FC H*M)»Q THEN 



XM. 



TlMER*"»SSASt24l36ti23&"0M"[l2t36ll23 
TIMERl<«S4M[24t36J12]&Htl2t36«123;x 

.. timer;* 
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QQO2 96 Q0 



ELSE 
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X*******1lr**4t**** *************** 

PROCEDURE STIMER(T*WC1*WD2);% 
VALUE Ji% 



llr************************** 



INTEGER T*W01#IND2; 
COMMENT CONVERTS TIME{T) AS FOLLOwSi 

JL_ -_ wQ iC3QHgi n « nn 



% 
% 
% 



W0H42I6] 
WD2t2^«l2] 



t ; = 
: is 



"J' 

DD 



n~ "} 



% W02C36n2 3 n» OD 

X* ********************* **************** A************ ******* 

BEGIN __^ ' 



INTEGER 
WOIJ 



i; 



WD2»«"OC»00";« 



WDM«WDl.&cn'»TIMERCT))f 30n2M2J/8; 
WOa « »W02& I C l8 1 24 1 i23i 1 1 361 36 1 123 ^ X 



END stimer; 

% * * ♦♦*****»»*******»**** *******»§****»*****»*** **♦*»* 



integer procedure matchcv*a);% 
VALUE v; 
real v; array ai:ci;» 



Kf:At V/ AKHAT A [, C 1 t » 

comment LOOKS to SEE IF VALUE V OCCURS IN AR«AY A# 
If IT DOES RETURNS IND£X»IF NOT RETURNS Oi 

i* ********** * ******************************* •******#** 

BtGTw TMTrr.FR maE.t;x 



BEGIN INTEGER NAE*nX 
LABEL XITn 

'A[01? MATCH> 



■rOit 



NAEJJ 

FOR I»«l STEP 1 UNTIL NAE 00 

BEGIN 

IF VaACn TH£N 



JOUL 



8EGIN 

END loop;* 



MATCHjsi; GO XIT END;* 



ENO match;x 



twu MATCHiX 

X** **************************************** ******** * * ****** 

PROCEDURE PR INTLINEfLTNE» WHICH); X 

VALUE which; INTEREK WHICHiX 



VALUE which; integek which;* 

ARRAY LINECQ];* 

x****************************»*************»*************** 



BEGIN 

SWITCH FILE SWF»»PRNT#UPRnT;1 
If WHiCH*tlSERPT THEN MLiNf C Tfi I»ULINECTR>2 ELSE 

LINECTR»»LINECT8f2; 

WRITE(SWFCWHICH DIV 23 t DBL 3 * 17* L INec* ] ) /,« 
END PR I NTLINE;* 



r*********************»************ 



,',X'*'.* * * *.* *"'*.* ***.*************** tr w > w w 1 

STREAM PROCEDURE flL*NKOUT(LINE);X 

X * ***** * * ************************************************* 

BEGIN 

DI««LlNE;DSt» 8 LIT" ♦•; 

subline; Dst»i6 wds; 



END BLANKOUTiX 
X******************************************************** 

STREAM PRQCEOURE CLE ARC N> A ) t 



VALUE n;x 

COMMENT SET N+1 WORDS TO ZERO/ 
X************************************************ ******* 



BEGIN 

oii»a; dsi«8 Lifo"; 
5ii*a; osiwn wts; 



00030000 
00030100 

Jl0-0JJQ2i3J3- 
00030300 
00030400 
0QQ 3QS0Q 

OOU30600 
00030700 

.jmejjaaoii- 

00030900 
00031000 
00031 Iflfl- 
00031200 
00031300 
.00031400 
G0031500 
00031600 
000 31700 
00031800 
00031900 
00032000, 
00032100 
00032200 
00032300 
00032400 



00032500 
0Q032600 
00032700 

00032300 
00032900 
00033000 
00033100 
00033200 
00033300 
00033400 
Q0033SQQ 
00033600 
00033700 
00033ftQO 
000 33900 
00034000 
00 03<»l Qfl 



00034200 
00034300 
00034400 



00034500 
00034600 
00034700 



00034600 
00034900 
00035000 

00035100 
00035200 
00035300 



00035400 
00035500 
00035600 



00035700 
00035800 
00035900 



56 ' 



>r 







• 






10 

11 

12 
13 
14 
15 
16 
17 
18 
19 



20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

«3 

•4 



46 
47 
48 
49 
SO 
51 

a 

94 

S5 
X 



END clear;% 

PROCEDURE NEXTPAGE(WHICH)jit 



* ** ** 



00036000 

0CO3610O 

_QS1QA<>J2.QSL. 



VALUE which; INTEGER WMICH;X 



X********************** ************<•******* A***************** 



BEGIN 



REAL li% 

SWITCH FILE swfisprnt,uprnt;* 

FORMAT HF( f X 2fi fr** B-5i>n0 TIMF 



SHARINfi SY.STFM LHii 



"REPORT **''#X7*A6»"0AY "» # 2( U''^/" )* I2» X 1 1 

."PAGE "(IS); 

LIST HL CDAYtPATEl, »nATE2fnATF3* 



IF WHICHsuSERPT then UPAGENai=UPAGENQ+l tL^t 

PAGENa»sPAGENO+l);% 

MRTTECSWFIWHICH niV PltPAGtilif^ 



WRiTECSWFtWHiCW 
IF WHICH«USERPT 
I INFCTRl8<S*ax 



DIV 23tDBL3»HF'HL);i« 
THEN ULINECTR»*6 + 2XNFIDI.INES 
aiS^gxNFinLlNFSii . 



ELSE 



FOR I«=0 STEP I UNTIL NFIDLINES 
DO PRINTLINE (FI0L I NEC I#* 3* WHICH j;* 

END NEXTPAPiFn 



X********************** ******* A************************! 



PROCEDURE PUTHEA0ER(WHICH);X 
'AI.IIE WHTCHi-1- 



INTEGER WHICH; 



%**************** 
BEGTN- 



**************************************** 



SWITCH FILE S 
SWITCH FORMAT 
(Xni»''>J S F R 



WFlLE»»PRNT*UPRNTi« 

SWFJs 
. JOB S M M U A R Y*')> 



(X50^"U S E R D I 
(X55*"U S E R S U 
SWITCH FORMAT SWFF; 



SK SUMMARY")** 
M M A R Y");A 



('•USER*'*X4#«P 
♦♦LL''*X5#«BGJ 



f^PNa'^XS* 

Eoj^^xr* 

P$T">X7»"lOT**>Xa»"ET/TT"*X»» 



Nf^XSJ 
It. v7.»I 



t%T, 



"CaRE"#Xl*"TRMNTN" 

"FID*'»X6^"UNlT"#xa 

(♦^USER''#X5*"MF I D'^X 



*X2'"MFI0"*X^* 
/"TIME")* 
b>"FrD'%X6^ 



"CREATN DATE 
♦•# DISK SEQS 



& TIM 
"^XS*" 
PST"»X 



E", XI* "LOGOFF T1M£">X2# 

TIME USCO")'* 
7«*^IQT"*X7*"£f'**xa*"C&E*'*X4* 



l#"CDRE/SECS");X 

wri tecswfi lec w hich 



••TERMINAL"*X 
NEXTPAGECWHIC 



UIV 2XCUHU3f •yWFC^vHlCH] )i 



WRITECSWFILECWHICM OIV 23COBLi»SWFFtWHlCHJ3JX 
END PUTHEAOERU 



00036300 
00036400 
00036500 



00036600 
00036700 
00036800 



00036900 
00037000 
0003710Q 



00037200 
00037300 
00037000 



00037500 
00037600 

000 3 7700 



00037800 
0C037900 
0003 8000 



00038100 
00038200 
000 383 4^- 



00038400 
00038500 
000 3 8 6 0- 



00038700 
00038800 
)038< 



4X01 



1*00- 



00039000 
00039100 
00039200 



00039300 
00039400 

O0O3»500 



00039600 
00039700 
000398 00 



00039900 
000400O0 
QQ040100 



00040200 
00040300 
00040400 



000«OiOO 
00040600 
00040700 



BOOLEAN PROCEDURE DISKREAD^X 

r****** ************************* *********** 



X****************' 
BEGIN 



00040800 
00040900 
Q 0041 0CQ 



LABEL GET*EOF 

GETtREAD{OISK,tO> 

IF LOG^SCt03 * 



# THRU I 

LOeRECC*3)tEOF3n 

REALCNOT FALSE) TH£N GO TO EOFJ 



0004 
0004 
0004 



uoo 

1200 
1300 



IF L0GRECC03»T¥PEF LSS BOJ THEN Go GET; 
PTRl«PTRBASEi 

G O thru; 



0004 
0004 
QQ04 



1400 
1500 
1600 



EOFllF FiDOtFIDPI 
BEGIN CLOSECD 

MF I Plg pi 



■FIDP+13 NEQ THEN 

ISK); 



0004 
0004 
0004 



1700 
1800 
190Q 



# • 



h 



8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 

20 



22 
23 
24 
2S 



26/.; 

27 
28 
29 

30 
31 



32 

33 



34 
35 



36 
37' 



4C 
41 
«2 



»S 
46 

♦7 



•9 

50 



I M 

54 



55 
56 



ENOn 



FILL DISK WITH MrlD;% 

GO TO get; 



DlSKREAOl«TRUEi 
THRUJ 
END DTSKRFAnf 



cnu u i aftnr hij* ^ 

%%%%X%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%^^il,%%%%%%%%%%%%% 
COMMENT j:j:j SECTION - 04 - iNAP HtPORTS !$:::> 



X * '^ ********** Hr ************ Hr ***** * *■ *,* *******#****'#*****«*** 

PROCEDURE HUANA^X 

X**********************. ***••**♦*♦*♦**»»,> ********♦**»*»»»» 



BEGIN 

FORMAT 
FORMAT 



FICTHERE were ",I3* '• HALT LOADS' 
F2("HA| T LriAU TIMFS WKRf^ » ")f 



)}% 



F4("MEAN TIME BETWEEN HALT LO ADS. » . "» A3* AS ) i 
FHRM AT FSfWTTMr PrRrnn frnwrRin vak frh^ ».a^,a%^ 



♦• TO ♦♦*A3#A5);X 
REAL A*B#C*D*i;i6 
LABEL XIT?* 



NEXTFAGE(ONSITE>n 

STIMERCBEGlNTIME#A»B)i STIMER(LAS>tlME*C,D >; * 

WRTTEfPRMTfnHvl»F ^,A*R/r>nMili 



WRITE(PRNT[DBL3*F1*HLP);X 
IF HLP « THEN GC XITi* 
- WR I T F (PBNT C OB U3 #F23i X 



FOR 11*1 STEP I UNTIL HLP 
BEGIN COMMENT H/L TIMES; 
STTMER(HLQrnf At B)t 



DO 



WRITE CPRNTCDBL3*F3,A,B); 
END PRINTING HL TIMES; 
STI MERC ( LAST IME-BFGINT IMF VHLP.A/B);a; 



WRITE (PRNTtDBL3*f-»>A,B);X 
XlTi 

END HLANAJX 



X********** ***************** ***********************^****^t 

PROCEDURE lineana;x 

COMMENT PRINTS OUT THF AM0UNT5 AND %S OF TIME 



THAT I LINES WERE IN USEIX 
Xf***************** * * ** ****.«******«********************* I 
BEGIN BOOLEAN FIRSTJX 



FORMAT FlCNO, OF LINES IN USE TIME 
FORMAT F2(Xll,I4,X^*A3»Ab#X5*F6.2);* 
REAL I^L1*L2;X 



XTOTAL TIME"); 



REAL max#T/tt;x 

LABCl. xit;x 

NEXTPAGE(QN1ITE ) I WRIT£(PRNTCDBL3 « F1 ) i% 

trno Tt..klllk<l TMr-C Cvr-C) _4 ii^iT-ri /I Itri 



FOR IlsNUMLlNES STEP -1 UNTIL DO 

BEGIN TTl-TT+LINEARHYtn; IF LINLARRYCI] NE« THEN 

IF NOT FIRST THEM REGiN F IHSTt »TRUE ; MAX» si ENDi 



end; 

if tt»0 then go 

FOR ItaO STFP 1 



BEGIN 



TO xit;x 

U^TIL MAX 



-OIL 



end; 

XITI 

£m 1 TMlANAil 



STIMeR(Ti»LINEARRYCI]*l1'L2>;X 
WRITECPRNTtDRL3vr2*I»CDMLlN£S.Ll>L2#lO0>^CT/TT)nX 



00042000 
00042100 
-£UX0.4Z2XXO- 
00042300 
00042400 
00Q42500 



00li42600 
00042700 

.-ax)g4 28-ao-. 



00042V00 
00043000 
00 4 3100- 



00043200 

00043300 

-00043400. 



00043500 
0004 3600 
00 04 3700 



00043800 
00043900 
00044000. 



00044100 
00044200 
00044100- 



00044400 
00044500 
00044600 



00044700 
00044800 
00044900 



00045000 
00045100 
Q0U45 2QQ 



00045300 
00045400 
OQ04S'^OQ 



00C45600 
00C45700 
PQQ45600 



00045900 
00046000 
00046100 



00046200 
00046300 
00046400 



00046500 
00046600 
00046700 



00046800 
00046900 
0004700Q 



00047100 
00047200 
00 04 7300 



00047400 
00047500 
00047600 



00047700 
00047800 
000»7ftO Q 



T< 



3 
4 
5 

6 
7 
8 
9 
10 



# • 



h 



10 

11 

12 
13 

U 

(15 

i: 

18 



19 
20 
21 
22 



23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 



33 

34 
3S 
36 

37" 



39 



«2 



»7 
•8 
49 
50 



52 

a 

S4 

56 
56 



y. 



PROCEDURE EIHRaNa; 

C O MM E NT LI STS THE N O, OF 



********4t*«**ilr****4r*ilr**4r********* 



EHRORS P E R F g HlPH L H^ L i 



X***** * ************************* A** ***]i(*******«***ikik ******: 
FTC'PERIPHERAt DEVICE ERRORS WERE DISTRIBUTED"* 
!"«/. 'M iiN>'«xa.*^tiNTT"»xifi,"Nnr*'j;i 



00048000 

oooaaioo 
oooaflsoo 



BEGIN 



FORMAT 

AS FQLLnws 



FORMAT FCI3#X2>A6*X5MB);» 
REAU i; 
NEXTPAfiF(nNSITE)n 



00048300 
00046400 

nooaflsno 



WRITECPRNTtDBL]»FT)iX 

FOR Its I STEP 1 UNTIL 31 X 

DO IF RTF C n MEQ THEN WRI TFCPRNTCDRL 3 » F « I-l i UM TC U *R TE [ 13 1 JX 



00048600 
00048700 
00048800 




00048900 
OOO49OOO 
00049100 



X 
X 
X 



sen 

St2] 
SC33 



X 

X 
X 



St 4 3 
SC53 
SC63 



J»» LINE 
U= PROG 



NO. 
NAME 

NAME 



t IS 



BQJ 
EQJ 
gPU 



X 
X 
X 



TIME 
TIME 
TIMF 



USFD 



SC73 Ma I/O TIME USED 

SC83 : ta C0RE USED 

St93 ii» "D 5 "E P"f"F Q J'S fc:T C. 



COMMENT LAYOUT OF THE FILE STAT SORT RECORD* 

X FC03-Ft33 ««s SC03*St33 
-J Ft 43 >1« rLnSF STAT TIME 

X F[53-FC93 »l= SAME AS LOG HLCORD 

COMMENT LAYOUT OF THE TERMINAL LUGGING HECQRD; 
-J Tt03 1 8" USER 



X 

X 

JL 



TC13 
T[23 
TC 33 



-UI 



1 1 9 



LINE NO 
"LINE &" 
"CRF USr" 



% TC4] $»« TIME LOGGED UN 

X* ******************************************** **************** 

STREAM PROCEDURE MAKEF ILEDETA ILL INE (L INE^MF iD^F lU/ UMT» T IM ) ; X 



VALUE. MFID*FIO#UNIT'TIMlX 

X*********«************************************************* 
BE SIN 



Dn'sLlN£;Dl»»DI + 60;QI taDl + 35;x 

siiaLOc mfid; g(upsi;DSj = 7 chr; updd; 
sn-ssi-t-s; Diiaon-2jDSi»3 chr; % unit 



% MFID*FI0 



sn=si+2; Dii*oi+2;x 

2CDSI»2 chr; OSJeLlT":"); DS«'»2 CHRjX 

end makefileoetaillinfj* 

X******************************************************* 

PROCEDURE filedetail(sortrec); 

ARRAY SnRTRECCOliX 



COMMENT formats THEN FILE RECORD PRINTLINEiX 

X*********************************** ************************** 

-agsiN 



DEFINE S«S08TREC#;X 
REAL LUN;x 
lAHFL XITi 



IF{LUNJ«SC83ft36t63)»0 THEN GO TU XITJX 
RTECLUN3l«RTEtLUN3+SC83.C24U2JJa RUN TIME ERRORS 
Rt ANKQUTn iNEVi , 



00049200 
00049300 
00Q49400 



00049500 

00049600 
00049 70 



00049800 
00049900 
QQ9i?0QQQ 



000=50100 
00050200 
00050 300, 



00050400 
00050500 
0005060Q 



000SO700 
00050800 

noQ'»n900 



OOOblOOO 
00051100 
00 51?Qn 



00051300 
00051400 
00051 "SO 



00051600 
00051700 
00051600 



00051900 
00052000 
QQQ9 81Q0 



00052200 
000b2300 
Q0O 5240 O 



00O52500 
00052600 
00052700 



00052800 
00052900 
00053000 



00053100 
00053200 
00QS3300 



00053400 
00053500 
0OQ536OXL 



00053700 
00053800 
QQ053900 



• • 



# 
• 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



s 

o 
Q 






16 

I 17 

18 

19* 
I 20 

21 

22 

23 

24 

2S 

26 I; 

27 
28 



I M 

30 

31 ' 
f 32 

J3 

34 

3S 

36 

37 ~ 

38 



39 
40 



42 
43 

I » 

45 

46 

) " 

•8 

•9 

I 50 
51 
52 

I S3 
54 
55 



MAKEFlL£.0eTAlLLlNE(LlNE*5Cb]#SCoJ#UNlTCLUN]/ 
TIMERCABS(S[9])));ii; 

PRTNTI I NFfI TNr.nNSTTr^;^ 



XITJ 

END FILEDETAim 

^X** *** *** J, **» *j,»»t»«,<t>»»»<^,t»^^»^»,t ♦*»**♦*»»«*********** •»»»»<, 
STREAM PROCEDURE MAKELEVELL INEC L IME* ASTtR ISKH EV EL* 

PST*IOT*ET#COR)> 

VALUE P§Tf TQT^ FT f CQH.a5TFR1.sk, LEVEL J » 



00054000 
00054100 



00054300 
00054400 
00054SQn 



BEGIN 5H«U0C asterisk; OIJaLINEIX 

n r I » D I ♦! e > g f t i pn T » u P S T i n S > » 7 c Hf< ) 1 1 ____„ 

0S»3l2 UIT" TOTALS,. .,,"n 

3(Sn=si+2;DiJ = Di+2;x 

PfPSta? cmr; nst=| tt".">!^ 



00054600 
00054700 
.00<^54flQil_ 



00054900 

00055000 
onQ55i nn 



DSt»2 CHR);* 
DI»>DI*2l 0S»» 8 DECn 
nTtwM-sf f\Si«a f ill i^ 



00055200 
00055300 
nOUTj/iQO 



END makelevelline;x 

PROCEDURE LEVEL(WHlCH,pST,InT,ETw:nR); ___^ 



00055500 

00055600 

-0005*^700 



VALUE WHlCH*PST#lOT*ET*eORn 

INTEGER which; 

REAL PST«TQT*FT.rnR;^ 



00055800 

00055900 
00056Q0 Q 



00056100 
00056200 



BEGIN 

-BtANKOiJTCL TNE}f 



MAKELEVELLINE( LINE* ASTERI SKI WHICH 3, LEvELARRrt WHICH 3, 
TIMER (PST )» TIMER (IQT),TIMCR(ET 3* COR )n 
PRl NTLlNFfLINF«aNSlTFUi: __„. 



00U56400 
00056500 
nQ0i!>660Q 



00056700 
0G056800 
onO'afeQnn 



00057200 



PROCEDURE SPLTTfn; VALUE i;% 
REAL li% 



BEGIN DEFINE P»r,TrG«>T0»RTii».r« G T12»;X OQQS7son 



PSTOTALStI]j«PST0TALS[n+P;X 
lOTOTALSEi] Js lOTOTALStn + 
ETQTALS[nt»ETnTAi .SCn^rf^ 



ic;* 



IF I«0 THEN OSUSEtal ELSE REMUS£»*i;X 
END SPLIT;* 



00057600 
00057700 
QQ057flOO 



STREAM PROCEDURE MAkEDET AI LLl NEC Ll NE' USER, Pi^l , P(S2, lL' BO jT, 
E0JT»PSTMQT#ET#C0R»HEND);i6 
VALUE U SE R.PNl.PN?,! i , Hn J T. F. DJT, PST, I PT, FT, CUR, henii ;% 



00057010 
00057900 
Qoosanon 



. - — —^' — ■ — '-•■ — l it . - > .b. ^"»'i .. Tuw~--- ■•'■''*uiy[L[j-v^ y r\,niLr\ii , ]»4» 

%***********i'**1,*1,1,1,1,t,**1,i,ln,ln,in,i,i,wi,*1,1,l,1,i,i,i,i,i,i,i,1,i,i,^,i,^,^^t, 

BEGIN 
s n»LQC user; nitat iMr; 



0005810C 

00058200 
0005B3QQ 



3(UPSi; DS«s7 CHR; UPdD; % USEft*HNl»PN2 

snsSi+6;DS«"2 chr; dijsdi*?;* line no 
5fSl»« Sl*?; 2fnS>^? ChR; ns:aLlT"t«M; ns; = ;. Cmh; 
DIItOI*2)|ii ■ ■■ ^ ^ ^-■-■. 

OS I te dec; oii»oi*2) 

OPS I J OS ins CHRii 



00058400 
00058500 
00058600 



00058700 
00058800 
000589QQ- 



Dis»Di-i5; DSi* 5 fill;* 
END makedetailline;x 

**************************************************** ***** 



OOO59O00 
00 05 9 100 
00OS920O 



PROCEDURE DETAlL(USER,PNl,PN2,LL'B0vlT,E0JT*PST#l0T.FT* 
COR#HENO);X 

VALUE USER #PNl,PNp,LL,BQJT.EOJT,PST>IOT,FT,COR.HENn;» 



00059300 
00059400 
00059500 



00059600 
00059700 
0Q0S98OO 



li 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 
27 
28 

29 I 
30 
31 

32 t 
33 
34 

35 % 
36 
37 
38 i 



41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



i 
i 



m 



55 

56' 

5? 



h- 



2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

|1S_ 

■16 

^7 



19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 ~ 



32 

33 
34 
35 
36 
3?" 



38 

39 
40 
41 
42 



45 
«6 
♦7 
•8 



49 
50 



51 

i2 



54 



55 

56 



REAL USER,PNl*PN2>HOJT^EOJT»PST»IOT*E:T*CaK^HLMD,LL;* 
r (; T M 



% 



BLANKOUT(LINE);X 

MAKEDETAILLINE(LINE*USER*PN1»PN£#H.*TIMER(8QJT), 

TIMER(EOJT)#TlMERfPSTl#TIM£R(TOr),TTMFR(FT). 



COR#HEND);x 
PRINTLINE(LINE*0NSIT£);4; 
ENP DETAIL?* 



CI1V — UL I WiLf* ^ 

COMMENT LAYOUT OF THE USER MASTER RLCORD;)li 
% Ut03 U« USER 
_X UCn tx» CPU TIME 



00Ub9900 

00060000 

0Q06.P4..(m.. 

00060200 

00060300 

00060^00 

00000500 

00060600 

000(^,0700 



% 
% 



% 
% 

% 



U[2] ! :a I-C TIME 
UC3] J:s elapsed TIME 
U jH) n« CAIND E CPU JiM fc;, 



UC5] 
U[63 



M« TERMINAL TIME 
«»« CORE 



00060900 
00061000 
Q Q06 11 Q Q 
00061200 
00061300 
Q Q06U 00 



00061500 



00061600 
n^ niSK SPAcr aaobxjnn 

************************** ************************QQQ^J7JQ 



PRDCEDURE REPORTU(USER*PST*IOT*tT*Ct.T* rT*CQR);;6 
VALUE PST»IST«ET»CET»TT»CORtUSEH;S(i 

OC»l DCT.»nT-fT./.r-T-TTnr>i-. >iCi-Q-W 



00061800 

^mXX64nSMM)- 
00062000 



REAL pst,iot#et»cet#tt#cor*user;x 

COMMENT OUTPUTS THE REPQRT WITH USER TDALS AS 00062100 

THE DFTATLI . opn^paOO 

%**************♦*******************«***■*•************************#**** **00062210 



BEGIN INTEGER I»J;l 
I ARFL FOF.XTTU 



DEFINE INPUTREADY«EQUIVCME03*0) AND NOT MER6tND#;X 

DEFINE MBMERGElNPUT»n 

TF ULINECTR GTR fi» THpN PllTNt-: AHFR f tJSFRP T ^ ?» 



MAKEDETAlLLINE(UlINt,uSeR*"CURKt.iNT'%"TUrALS ' 

TIMERcPST)»TIMER(lOT)#TlMERCET)#TlMErt(CET)* 
TTMERCTT).DEC\/C8,i;5(r.llR/1.024 ) xC PST ■» T n m . '« 



I '• * »♦ , 



00062300 
4)0062400 
00062500 
00062600 
00062700 



-!LUX 



PRINTLINE CULINE#USERPTHX 
BLANK0UT(ULINE);X 

TF MFRfiETna THFM TF TK)PilTR rAny rHFM 

DO BEGIN READCMERGEFlLtf 8^ML*J )ttOF3; Wk ITE( i^U MF I LE^ 8* MC *3 ) 
UNTIL COMPARE(l#USEH*MCe])>% 
IF M E R GE T O G TH E N 



00062800 
00062900 
00063000 



END 



00063100 
00063200 
00063300 



IF EQUlV(USER#Mt01) THEN 
BEGIN COMMENT HIT; 
_— MAKFOFTATI I TMFf llj T MF . UstR . 'tMFHnF 



00063400 
00063500 
00063600 



'."TQTAl s '*,»**», 



nnnt . u ii. in I 1 . 1. » i nr ^ m . i me i w . n . n 1 • nr . nut . — ■- » • i u i «^ ;•» - t - w 

TIMERCMCn),TlMER(MC2])*TIMtR(MC3n^TIMLRCMt4])* 
TIMER(MC5])j.DECV(8,j:5CMC6 J/l024)xCM[n + MC2J)D*'« 
MAKFnFTAH,LINF(UHNF>U.iER>"aRAND 'VTUTAl S ♦V i"***'V 

M.fcB./aST •..■D.C*j.44f'4'.'tv^',.-,T,TUt-a./.TnTii'«..,:r/i'»j..j,r/'3-l \ . 



00063700 
00063600 
00063900 



••);% 



i - i riri l- m. I n ,t ,v i» *l>«- VV U * l ''t .. ' V . JI - IVH MUriH I ^ .1 1 M ,I,, W, , W ' 

TlM£R(pSTI«PST + Mtl13#TlMeH(lOT!<»iOT + M|2J)# 

TlMERCETl*ET*Mt3])#TIMeB(eET»»CET+MC43)> 
T TMFBf TT I liTTAMt AV V. nf f!\/ ( H< 1 t a t*J\,n 



00064000 
00064100 

Q o ooaaoo 



MCO] laon 
end; 

WRITECUPRNT [ BU 3 ) ;» 



')M 



00064 300 
00064400 
00064500 



Wnx l.fc yyrnp) I tvoi. j7>» _, 

IF MERaETQG THEN IF COMPARECWMtO], USER) AND MC03 NeQ 
THEN MEOllwOiX 

IF SUMTOG THEN WRlTEtsyWFlL£>*iUSERfPST*IOT*:£T> 
rrr . TT . T > J « 



00064600 
00064700 
000 648 00 



CET#TT#I);« 

GO TO xit; 

EOFiMERGENDt«TRUE;!l! 



0006490Q 
00065000 
00065100 



XIT I 

END u5erpt;x 



00065200 

00065300 
00065400 



%***1iii*******1,1til*1r**1i1,*<kiii,*i,i:it,i,i,itii1iit**i,****-ki,iii,t*'ki,1,ti,lri,*il,it 



00065500 
00065600 
Q0Q69700 






10 

11 



13 
14 



IS 
16 
17 
18 
19 
20 
21 
Z2 
23 
24 
28 
26 



27 
28 



29 
30 



31 
32 
33 
34 

35 
36 
37" 
38 



41 
42 
43 



44 
4S 



46 
47 
IS 
49 
SO 
61 



J2 

a 

54 

95 



56 

57 



BOOLEAN PROCEDURE OSINC SORTKEC) ; * 
ARRAY SORTRECCO];% 

%**t1,i,*i,***i,*i,i, ***i^*1,i, **-t,*i, *********** *^,^>^,*^,ii^^^^^f^• If ********* 



BEGIN 

PRQCPnilRE JQBnN^J.P^.P9^l^ .M.TUM 



VALUE U/Pl*P2*LL*M*TiX 

REAL U*Pl*P2*LL»M*T;!i! 

rnMMENT U . SFS PASSrn P fl RAMFTt-HS rU H ii l l-n MIX TAH|F ^^TBT^^s; 



BEGIN DEFINE MT«MIXTBi#IX 

MTEM>Ojl»U; IF LL»0 THEN MTtB*l]»»0 Elsf 



•*«*t««»««tt*i*t**«*«««t«**« 



WMr^»Vi*mut IF LLmU THLN M TEM* IJ i »0 LLSF 

MT[MM]» = 0ECV(2*LL) & DECV C 5#LL TBL CLU* ;i J ) [6tiai30];X 
MTrM*7ltsPi: MT r ii/ . ) i : =pj 1 % 



MT[M#2]»«Pi; HHW,3i'-=P2n 
MT[Mf alisTU 



IF LL NCQ THEf^ 

LLtiLCLL* 3lf»Uil PUT IN USE:R CQBE 



END mnnHti 



PROCEDURE JOBOFFCS»LL*MIX^rIM,HEND);X 
— VALUF l,„UMIX>TlMtHEND;it; „_____ 



REAL Lt'Mix*TlM#HENO;X 

ARRAY SC0 3;« 

rQ MMENT r.RFATFS SHRT RFrORlv FROM PASStn TNirQ A^p 

INFO IN mixtable;* 



BEGIN 



DEFINE MaMlxTBL#n 
MOVE(9*MCMIX'*3*St*] );« 
Sf SII^TIMU FO..I timf 



St9]»sHEND;X HOW jOb ENqED »MaY dE PSEUDO 
CLEAR(9,MCMIX**n;X CLEAR MIX TABlE ENTRY 
-£MJ- JOBOFFiai 



PROCEDURE tOGOFFCS#tl.»OFFT*CeT»S0O#H£ND)^X 
VALUE LL.nFFT. GET. BQn^MFNDU: 



REAL LL'0FFT*CET*H£ND;X 
BOOLEAN BOO;X 
ARRAY SIQin 



BEGIN 

REAL in 



• •••••••••«•«•••»•»•••, •»t»*««««t(i**» *•«•*•#••»••• 



LABEL XIT;I 

SCn««DECV(2*LL j & QECV (5* LLTbL CLL* 2] ) C6J18»30J;X 

Grnii9illTnlrli./-i1< er'ili-MiTN, L' a 



S[0]»aLLTBLCLL«03J S[2]> = " LINE S.'^IX 

Staai-^CiE USE**; SCft]:*LLT8LCLL*n; sc 
St73»»0; St«3l« •♦ «J SC93«»HENO;x 
FOR lt»0*1 DO LLTBL[LLM3l«o; 



53I»0FFT; SC63tscET; 



LLTBLtLL*23l»LLTBL[LL,2]+i;x BUNP SESSION NO 
IF BOO THEN GO XlTU 
LINEARRY[NL3t«LINFARRY[NL]-^DFFT;Jt 
LlNEARRytNLH»NL«ni»LINEARHYCNLJ-OFi 



XITJ 

ENO Lotorp; 



tt;» 



PROCEDURE LQGON(LL»ONT#WHO)n 
VALUE LL^ONT^WHBJ 



00065800 
00065900 

-aaud&ooxi- 



00066100 
00066200 

noQftft3aj:x- 



00066400 
00066500 



00066700 
00066800 
OQ066900 



00067000 
00067100 
00067200. 



00067300 
00067400 
00067500 



OQ067600 
00067700 
00067800 



00067900 
00068000 

on Q6 flino 



00068200 

00U68300 

- 00U 684 



00068500 
00068600 

000 68 7 04?- 



00068800 
00068900 
00069000 
00069100 
00069200 
QQQ69lQn 



00069400 
00069500 
00069600 
00069700 
00069800 
00069900 



00070000 
00070100 
00070200 



00070300 
00070400 
00070500 



00070600 
00070700 
00070800 



REAL LL#ONT#WHOJX 
BEGIN LLTeLtLL>03t«KH0; LLTBLt LL* 13 »«ONT 



00070900 
00071000 

: ^ 00071100 

****t***»*»****a«*tf(*t*(0007l200 

00071300 
00071400 



00071500 



ygu/'i5oo 
• «********t********«*t«»«««t«t*«( 0007 1 60 

HI , 00071700 



2( 

3 

4 

s( 

6 

7 
8( 



10 

11 I 

12 

13 

14 ( 

15 

16 

17 < 

18 

19 

20 ( 

21 

22 



23 ' 

24 

2S 

26 ' 

27 

28 

29 I 

30 

31 

32 i 

33 

34 

35 i 

36 

37 

38 \ 

39 

40 

4,< 

42 

43 

44 I 

45 

4« 

47 

48 

49 

50 ' 

51 

52 

53* 

54 

55 

56 I 



e 



m • 



)rr 



12 
13 
14 
115 
j16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



36 

37 ~ 

38 

39 

40 

41 

42 



43 



46 
47 
U 



«9 
50 
51 



52 
53 



54 



y. 



LLTBLCLL*3] »=0; * SQ WE KNOW HE LOGGED 
LINEARRYCNL3 5 sL I NE ARR Y C NL 3 + UINT > * 
LIN FARRY fM, a^-NI, 1 11 ? -t. INEARH Y [NL J-QN T J it 



IN 



END LOGQNJX 

DEFINE K«GT1#»S»S0RTRECiI;% 
nrFTNE wwt nRRFfii;t 



DEFINE I»GT2#*MaMIXTBL»n 

LABEL RD*ONN*OFN*HLf D0NE;X 

LABEL XXT<XTT,.RPl>JRiFnjR*FIL£B>f:liJ.S? 



LABEL MRCLEAN,MRA6N»MRSCLEAN*MRSA6N;X 

SWITCH SWLtaRD»80jR»E0JR> 

Rp.Rn.Rn.m .Fnjs.FTLFB.nNNiinFN*RQ«Rn*Rn.HniX 



SWITCH CLEAN5WJsMRCLEAN,MRA(iN#MHdCLEAN,MRSAGN;* 

REAL L*LL#PNl*PN2*Ui>ERID;% 

REAI TIMfMTXfi; ,, ^ 



BOOLEAN 01 X 

COMMENT * * * * * * 
IF CLEANrR THEN SO 



OSIN STARTS HERE 
CLEANSWrKlU 



* * 



RD» IF DISKREAD THEN 

BEGIN CLOSECOISK); 
rLFANERUTRUEU 



GO TO hrclean;* 

ENDI 
TIMIgCLiaLOGRECC O DfTlMEFn 



mixjsl.mixf; llj«if l,rlf=o 

GO TO SWLtL.TYPEF];X 
RDJRtCOMMFNT BOJ RECHRDi . 



THE^ ELSE L,HNtF;X 



IF LL«0 THEN IF NOT ONSITETQG THEN 60 RQ ELSE 
ELSE IF NOT TeRMINALTOG THEN GO RO'* 

scan; pn2is?accum;x prog name 2 
if scan neq "/" then 

,USERln; = lF H.»0 then "NO'liSEWV^LSF ACCUM EliaE. 



BEGIN scan; ySERlD»»ACCUM EnO;» USER 
j0B0NCUSERID/PN4*PN2,LL»MIX#TIM)i!| 

LASTIMEl^TIMlt 



10 



GO TO rd;x 

EOJRiCOMMENT EOJ 
IF LL»0 THEN 



record; 

if not qnsitftug 



IHENi GO Kn FLSE 



ELSE IF NOT TERMINALTOG THEN GOH0;x 

IF EQUlV(MtMlX#03>0) THEN 

BEGIN COMMCNT NQ BOW/TRYTO SALVAGE OATA ELSEWHERE; X 



IF LL NEQ THEN 

USERlDflF EGUlV(LLTeLlLL'0J»O) THEN "UNKNOWN" 

ELSE LLTBLCLL^Q] ELSE USER 10 > ="UN^N0WN" U 



Mm 



00 UNTIi. SCAN^^yrPNll-ACCUM; scan; PN«Jt»AeCUM;* 
J080N<USEtID»PNl,PN2#LL'MIX#BEGiNTlME);» 



DO UNTIL SCANa",";X 

DO SCAN UNTIL L « 'ACCUM . 1 6 I 12 3 = "t.lJ" OR 

Lapps'* OR L«''SY";> 



J0B0FF<S*LL#MIX>TIM#IF Ls^OS" THEN "DS»ED " ELSE ACCUMJiX 
GO TO XITIX 
ONN< COMMENT LOG ON RECQRDJ 



IF NOTCLlNETOG BR TtRMlNALTOG ) THEN GQ RO; 
DO UNTIL SCAN«NUMBERV;X 
IF H . gQ THEN GO TO RD;X THRW AWAY SCHED STUFF 



IF LLT8LCLL#03 NEC ,0 THEN 
BEGIN COMMENT NOT LOfiECD OFF; 
LQG QFF(S ^LL* HUQ CHL P3 >Q>FAU§£#**FS*0N 



JJJL 



00071800 
000719C0 
000/200X1- 



00072100 
00072200 
00072^00 



00072400 
00072500 
007 26 00 



00072700 
000 72800 
00072900 



00073000 
00073100 

- oooraaoo - 



00073300 
000/3400 
0007 3 500 



000/3600 
00073700 
0007 3 80 Q 



00073900 
O0O74OO0 
000/ 4 1 0^ 



00074200 
00074300 
0007 44QQ 



00074500 
00074600 

no07fl7no 



00074800 
00074900 
00 07 500 



00075100 
0007S200 
00Q75300 



00075400 
00075500 
000756 



00075700 
00075800 
QQ07590Q 



00076000 

00076100 
0Q0762Q0 



00076300 
0007^400 
00076500 



00076600 
00076700 
00076fl00 



00076900 
00077000 
00077100 



00077200 
00077300 
Q007731Q 



00077400 
00077500 
00 077 60 



• • 



h 



le 

17 



19 
20 



12 
23 
24 
26 



26 
27 



29 



31 
32 
33 



34 
35 



36 

37" 



41 
42 



45 



•9 

SO 



52 



55 
56 

52- 



END 



LOGON(LL»TII^,ACCUM)n 

GO TO IF TERMINALTOG THEN XU ELSE RD;* 

PSFunn i.nrinpF; 



LOGON(LL»TIM*AC£UW)i 
LASTIMEl»TIMn 

r,n to Rnu 



OFNi COMMENT LOG OFF RECORD; 

IF NOTCLINETOG OR TtRMlNALTOG) IH^N 
no UNTIL .SCAN«NUf^RFHV{X 



GO rd;% 



HL« 



IF LLT8LCLl#03«0 THEN L0G0N(LL*BEGINTIME, ACCOM );X 

LOGOFF(S»LL*TlM#C,FALSE*'' 

fin TO TF tfrMtnai rns thfnj xfT 






HLQtHLP««HLP*l]»sTIM;x 

GO TO rd; 

ECJStrnMMENT FHJ STAT RLrnRn; 



rr U-0 THEN IF NOT 0NSITET06 THEN GO RQ ELSE 
EUSr IF NOT TERMINALTOG THEN GO Rpil 
MTMTK.ArfWfi 111 rPi. Tr"F 



MCMIX#7];*WC2];* 
MCMIX*83ls!W[3];!l 

G O TQ r d; x 



I TIME 
CORE USED 



FILERI COMMENT FIlE STAT RECORD;* 

IF Ll«0 THEN IF NOT ONSITETQG tHEN GO RO ELSE 
— Fl SF T F NHT TFRMTMAl TnQ Tkrivi ftH Rntt 



IF EQUlV(M[MlX*0],0) THEN 
M0VE{4*M[MIX*03*S[0] )i% 

sr^iuMrMiXf^HfUx 



GO TO r<D;X CANT Rt.COVEH#NQ InFO 



MOVEC5#Wtl3»SC5J);% 
SC93ta-ABS{SC93);!l! 
fiO TQ XITIX 



mrcleanj 

COMMENT GENERATE PSLUdO LOG-OpFiJ FOR THCSe U^eRS STILL 
IF NOTCTERMINALTHG QR LlNrTOG) TH^n GQ MRSClEAn;;^ 



ON- 



2; LlNEARRYCNL3»»LlNtARRYCNLHTlM; lJ*o; 

THEN GO WRSCLEANIX 



Kl 

MRAGNt 
IF H«I*1 GTR NUMLINES 



IF LLT8L£I*03 NEfl THEN 

BEGIN LOGOFFCS»I#LASTIME*0*THu£*"ES-aF ' 

RFGIN COMMfNT HF may NOT BF LOGGm IN;^ 



); GO XXT END ELSE 



LLT8L C I» 1 3 t •BEGINTIME; X ASSUME ON 
IF LLT8LtI*03l»LLT9LCl#33 NEQ THEN 
BEGIN LQGOFF(S»1*LAS TIME>0«TRU£#"ESTIM£ 
COMLINES«»COMLlNES+i;* 

GO TO xxt;x 

END ELSE GO MRAGN;% 



'11. 



END LOGON CHECK/* 
MRSCLEAN* 

COMMENT GENERATE PSEUDO EQJS FOR JOBS STILL HUnMngj 



IF NOTCONSlTETOfi 

k»»4;ii*o;x 
mrsag n* 



OR TERMINALTOG) THEN GO DONL;x 



IF (II«I+1) GTR MIXMax 
IF Mtl#03 NEC 8 THEN 
BEGIN J0B0FF(S>LL#I^IF 



ELSE LASTIMEMF B THEN "Hl-ED 

GO TO xxt;x 

END PSEUDO EOJ ELSE GO MRSAGN;* 



THEN GO done;* 

8t*( i[I^43 LSS HLQChLP3) THEN HLQCHLP3 



ELSE "INMIX ");X 



DONE! 

KlutltaOiX 

.,„ , :;. „0 . $/:N.t.:-».f:R.fE;.». 



00077700 

00077800 

-iI0g77900. 



00078000 
00078100 

nno7fl200 



00078300 
00078400 
■0X)0785QQ- 



00078600 

00078700 

-O0Q7ft8ni3-- 



00078900 
00079000 
00079100.. 



00079200 
00079300 

nnQ79aoo 



00079500 

00079600 
-XmiJ7 970 



G0079800 
00079900 

■onQaonnn 



oooaoioo 

00080200 
00080300 



00080400 

00080500 
onOflQAnn 



00080700 
00060800 
00080900 



00081000 
0008U00 
000 9 12Q0 , 

00081300 
00081400 
QQ081SQQ 



00081600 
00081700 
00061 800 



00081900 
00081910 
00082000 



00082100 
00082200 
00082300 



00082400 
00082500 
000 82 60 



00082/00 
00082000 
00082900 



00083000 
00083100 
00083200 



00083300 
00083400 



l< 



12 

13 



17 
18 



23 
24 



2S 

29 < 

30 

31 

32 I 

33 

34 

36 1 

36 

37 



41 ' 
42 



44 ' 

45 

46 



11 



50 ' 



52 



57 



>r 



GO TO xxt;x 

XlT!LASTlME:aTIM;% 
XXTl 



EKD osin;x 

PROCEDURF OS O UT < IMOD A T A *SORT« E C) ; ^__ 

VALUE NODATAiX 

BOOLEAN NODATA; ARRAY SQRTRECtOj;% 

X ***** * * * **************** *1n,l,i,*l,ii*it1i**l,i,1n,i,i,i,t*i,i,i,i,ti,i,i,i,i,i, 



BEGIN 

DEFINE 



TPST«ST2#ji 
TTnT»GT.^*. 



% ACCUM REPORT CPU TIME 
% ACTUM REPORT I«Q TlMf 



TET =GT4#* 
TCORsGTS#* 
U PSTg GT6» » 



UI0T»aT7#, 

UET •GT8#» 
UCnR«ST9»# 



* ACCUM REPQH7 ELAPSLD Ti^E 
5i ACOUm report CQHECttUS) 
% ACCUM USER CPU TTMF 



SPST«GT10#, 
SIOT«GTli<i, 
SET gGTtg*,. 



* ACCUM USER I-O TlMt 

* ACCUM USER Elapsed TIME 



SC0R*QT13«# 
PPST«GT14#, % 
PinT^fiTl^** % 



% ACCUM SESSION CPU TIME 
» ACCUM SESSION I'D TIME 



ACCUM SESSION CORECWOS) 
ACCUM PiOGRAM CPU TIME 
ACrtlM PROGRAM I-H TIME 



PET sGT16#, % ACCUM PROGhAM ELAPSED TIME 

PC0R«GT17)(i* % ACCUM PROGRAM CUREcrtOS) 

NU -GT18». % NQ. nr USERS 



AJL 



NR « GT1#» % REC NO. 

NJ »GT19# * NO. OF gOBS PROCESSED 



DEFINE S«SORTREC)»;!«: 
DEFINE HaHOLDKEY*;* 
TNTFGER PST.lnT.FT;X 



INTEGER C0R;X 

LABEL OtT#FIUEOET# JHRUJ* 

IF NOT NOnATA 1HFn% 



BEGIN COMMENT DATA CASE;% 

IF CNR»*NR+n = I THEN GO TO UETiX 
IF NOT EQUALf4^Sf0]>H0LDKEY) THEN 



BEGIN COMMENT SUMMARIZE LAST PROG DATAi 

LEVEt(PR06RAM*PPST*PlUT,PET*PC0R)i* 
SffSTmSPST*PPSTl SIQTiaSTtlT^PTnTI 



SETl»SET+PETi SCORJaSCOR+PCOR; 

CLEAR(3»PPST)iai 

WRITE(PRNTEDUL]); L I NECTR i «L I wECTR>2; H 



END LAST PROG ELSE GO D£T;X 

IT NOT EQUAL(2*S[0]#H0LDKEY) THEN 

RE6TM ^QMMF^T SltMMART^t^ \ T ^L Hata;^ 



level(sess10n#spst/siot#set*scor)>* 
up5ti«upst+spst; uiot:suiot+siotj» 

UcnRlSJlJCORH-SCORJ UETI-UFTtSFT^ii 



SPLlTdF HCn.[36»123«0 THEN Q ELSE {)}% 

clearo^spsthx 

W fllTFtPRNTCnBl TW LINECTRnl T^F^TR♦3i^t 



END LINE SUMMARY ELSE GO OETlX 
IF NOT EQUIV(HC0]»S[03) THEN 
BEGIN rOMMFNT SUMMARTZF DSFH HATA; 



LEVEL(USER>UPST»UIOT*UtT*UCOH);x 

reportuchqldkeyj;o]*upst«uiot* 

uFT.tifT.UTT.nrnqii % 



00083600 

00063700 

JKUJUiaaOXl-.. 



00083900 
00084000 

OOOfl / UOO 



00084200 
00084300 

nnufl44no 



00084500 
00084600 
000 84 700 



00084800 
00084900 

ooQaaooo 



00085100 
00085200 

Qcofi'sann 



00085400 
00085500 
00085600 



00085700 
00085800 

00085900 



00086000 

00086100 

,Q 006 6?00 



00086300 
00086400 
00086500 



00086600 
00086700 

onoflftaofi 



00086900 
00087000 
00087^00 



00087200 
00087300 
00087400 



00087500 
0008f600 
Q0Q8 7 7nn 



00087800 
00087900 
0Q068 QQQ 



GO 088 too 
00088200 
00088300 



00086400 
00088500 
00088600 



00088700 
0006660Q 

oooaeooo 



00089000 
00089100 



00089300 
00089400 
00089300 



11^ 



>r 



TPSTJ=TPST+UPbT;TiaTJ*TlQr+UIQT; 

tetj = tet + uet;icoR! = tcijh+ucor; 

RTT 1= RTUUTT; RCT ?= RCTiUCTil 



UTT I* UCT !• Q}% 

Ct.EARC3#UPST); 

nSUSFRStBOSllSfRS»»n&US£J 



nsUSFlBOlit 



00089600 
000a9700 

00089720 
00089800 
O0Qh9ai0- 



remuse:rsj=re;musers+remuse; 

P UTHEADFRt QN 9lUJ;^ 



KEHUSE»=0;% 



END USER Summary; X 

DETI COMMENT PRECCESS OETAll, RECORDJ* 
IF LTNECTR 6TR 6fi THEN PUTHEADERf QNS ITE ) i» 



00089820 
00089900 

0Q U9 _a,aQii, 



IF SIGNCSC9] ) = -! THEN GtJ FILEDETU 

IF S[n.C36ll2J = THEN UbJGbS J sQS JOBS* 1 

ELSE TUJOBSt^TUJOBS-Hia; 



00090100 

00090200 
Q009030Q 



00090400 
00090500 
0009P6QO 



13 
14 
IS 



DETAILCSC«3,SE2 3V3c3]#SCMfSCft3^St5nPSTi«sC6 3# 
lOTt»St73rgTl«Srs3*SEa3>COHtsSt83>SC9I)> 



00090700 
00090800 
00090900 



19 
20 



22 



24 
29 



26 



27 
28 



29 



31 
32 
33 
34 

35 



COMMENT ACCU^' PROG TOTALS;* 
PPST «» PPST+PbT; PIQT J» PlQT+iai/X 
IF S[33 ' "C&E USE*' THEN PET {= PEl->ET ELSE: UTT 



PCORt«PGOR*CGRn 
MOVE(5#Sce3>HOl.CKEY);X 

6 Q T HRu; a i 



utt-^6;t;% 



00091000 

00091100 
00091110 



00091200 
00091300 
00091000. 



filedetj 

FILEDETAIL(S)n 
FND DATA CASE Fl.SE 



BEGIN COMMENT NO DATA CASEiX 

IF SUMTQQ THEN i.OCK( SUMF lUE)* X 
LFVFLfPRor,HAM>PPST>PIOT«PFT*PCOR)lt 



00091500 
0009160C 
00091700 



00091800 
00091900 
00092000 



WRITE(PRNT[DBLJ);X 

spsTt»spsT+ppsT; siot«»siot+pilT; 

SET»aSET*PET; SCQR ; sSCQR^PCUR; a 



00092100 
00092200 
00092300 



lEVEiCSESS I ON* SPST*S IQT» SETfSCOR ) 1% 

WRITECPRNTC0BL3);X 

If SC33 NEB "C&E USE" THEN 



SPUITCIF HCn. [36:123*0 THEN ELSE 
UPST:sUPST+SPST; UlOT :sUlOT*SlCT ; 

uet««uet*set; ucnR:sucDRfScaR;i 



00092400 

00092500 
00OV2 51Q 



DH 



00092600 
00092700 
00092800 



39 
40 
41 
U 
43' 



LEVEL CUSER#UPST»UieT#yET#UCOR);X 

REPORTU( WSLOKEYEO 3>UPST ,U IOT #UET * 
ueT«tiTT«yCORVlX 



00092900 
00093000 



_an 



1100 



«9 
50 
51 
52 
53 

35 



WRITE(PRNTtDBL3);X 

tpsts«tpst+upst; tiotsstioi+uiut; 

TETt.«TET-»UE T; TC OH ? gTC O gliU CU R; 



END 

THRUt 

ENQ nsnuTn 



NU«»NU+l;« 

LEVEL (REPdRT»TP ST* TIOT#TET*TcOR); 

CLEARf7«UPST^;X 

NODATA 



case; 



O0O93200 
00093300 
Q00V3400 
00093500 
00093600 
0993 70 



X******************************************************* 



00093800 
00093900 
00094000 



BOOLEAN PROCEDURE 
ARR AY A fBtQ3; 



0SCCMP(A*S);» 



00094100 
0009i»200 
0094 300 



X****4r ********************* ******«-***** ***************** 

OSCOMP»=IF EQUAL{a*A[03*BCO3 ) THEN Ata3 LEO B[43 
ELSE CQMPARE(4»AC03^B[03);» 



X *************** ****************** ************** ******** 
PROCEDURE OSVALCA)! 
AR R AY A CO];x 



00094400 
00094500 
00094600 



0009*700 
00094800 



# • 



h- 



FILL A[*] WITH 0CJlHm\t\UlHlUlUlU,UQl].ulAiHlUlUi'4li\m, 

n n T * II * ii i h t tt * n * it i ii t /I t V 



0CTiai414iai414l^l4n 

t************************* ******% *********************** 
PROcmURE QSFTNALil 



000«5000 
00095100 
00CV5-2fl.Q- 
000V5300 

00095400 
00095500 



%**ii1fli1i*******ifii*1i***ii***1tii-k**-k************i,**iHi**in,1i*it** 



BEGIN 



DEFINE PST 9 GT2t> — % CI> , U , „T ,I ME 



00095600 
00095700 
0009S ) 6 C 



lOT * GT3## X 

ET « GT««* X 

_hLL * m^Qi^, t 



I-O TIME 
ELAPSED TIME 



00095900 
00096000 
00096100 



9 
10 

"( 

12 

13 

14 < 

15 

16 

iH 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 i 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 



10 

U 

12 

13 

14 

il5_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 



NU s GTia#; % NQ. OF USLHS 
LABEL again;* 
INTEGE R Pl *l»2.UM2 > E1>Fg ;x 



00096200 
00096300 
000V6400. 



BOOLEAN TUT0G;X 

LIST TIMELISTcri>P2*Il*l2*El>E2);X 

FORMAT F1('*nO. OF JOBS PROCESSED WAS 



t ^*I6>X2* 



00096500 
00096600 
000 9670 0- 



"NO, OF USERS WAS i 'M6);* 
FORMAT F2("T0TAL TIMES'MOC " . " ) * 3( A3 * A5, X3 ) ) ' 
F3("PERC^:NTA^?ESCTIM£/KTrV'*.">,i{(-fl,?fX3))y 



00096800 
00096900 
OOQ97000- 



F4 (WAVER AGES PER JOB. ...."* 3 ( A3#a5*X3 )) » 
F5("AVERAGES PeR USER.. .."fJCAS^ASfXSnn 
FORMAT F6fX22,"CPlJ''/Xfl>''I*0'*/X9."ET");ii 



FORMAT F7C" ***** ALL JUBS « ' 
FORMAT F8(" ***** REMOTE JOBS 
FORMA X F9f" ***** U NJl IT E JQtjS 



* * *"■)}% 

* * * * *")i% 

• * • * »"j;it 



00097100 
00097200 
00097-^00 



00097400 
00097500 
1097( 



jmi 



'600 



WRITE(PRNTC0BLJ>F7)iX 
iGAiNi 
WR TTE CP RN Tr.nBl JtF WN JtNt n t X 



00097700 
00097800 
00097900 



WRITE(PRNTCDBL]#F6)/% 

STIMERCPST*P1*P2); STiMERCIQT*llM2)> 
STTMFRCFTfEl*E?)> 



00098000 
00098100 
n009H2Q0 



WRlTE(PRNTCDBL3»F2#HM£LlST)ia! 

WRITE<PflNTtDBL]#F3#l0Ox(PST/ET)^100xCloT/ET>*l00);X 
STIMEHfPST/MJ.PI »P91J STiMKRf lOr/IVlJ>Il, l?);t 



STIMER(ET/NJ*EWE2)^X 
WRITECPRNT[D8L]*F4»TIMElIST);x 
STTMER(PST/NU»P1iF?)? ,,STTMFR(!QIVNU^ lU 12)/* 



00098300 
00098400 

00098500 



00096600 
00098700 
00098800 



STIMeRCET/NU*El*E2)n 

WR I TE ( PRNT [ D8L 3 * F5» 1 1 MEL I ST ) i % 

WRIT£(PRNtCORLl)i» 



00098900 
00099000 
00099100 



40 
41 
42 

43" 



IF ONSITETOG THEN 
BEGIN COMMENT ONSiTt TOTALS; 
WR I TE CPH NT [DPL ]fF9) ; X 



00099200 
00099300 
000VV400 



«s 

46 
47 
«8 
49 
50 
51 
52 
53 
S4 
55 
56 
S7 



onsitetoqi^false;* 

PSTl«PST0TALSC03;i 
lOTKIOTOTALSCOnX 



0«M)99500 
00099600 
00099700 



ET «« ETOTALSCO];a; 

NJJ»0SJ0BS;X 

N gt»QSuSFRS;x 



00099800 
00099900 
OO O999 IQ 



GO AGAINJS 
END ONSITE TOTAUSl* 
IF T ERM INA L TOfiTH EN 



00100000 

00 too too 

ODlQQgQO 



IF NOT TUTOG THEN 
BEGIN COMMENT REMQTL 
T UrO G>» TR UE; X 



totals;* 



00100300 

00100400 
00100500 



WRITECPRNT£DBL3»F8);» 
PSTt»PST0TALS[X3;% 
lOTlwinTflTALSmU 



00100600 
00100700 

00 inn 800 



h 



10 

11 

12 
13 
14 
IS 



16 

17 



19 
20 
21 
22 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



36 

37" 



36 
39 



40 
41 
42 



43 



45 

46 
47 
«8 
49 



50 
B1 



S2 

sa 



M 

55 



56 
67 



ET »s ETOTALSCim 
NJ:»TUJ0BS;« 
MH^RFMUSERSa 



GO again;x 

END REMOTE TOTALS;* 

END Q spinal;* 



% 

% 

JL 



SC2] M= FIC 

S[3] J Ja CREATION QAIL 

SM] n« CREATIGN TrME 



IF L0GRECC03.TTPEF NEQ OLOS THEN GO tiET>l 
DO UNTIL SCAN*"/";* 

stiU'ACCUM; a; MFio 



00 UNTIL SCAN-"/";* 
SC23J=ACCUM; 

scan; sroii?AccuM; 



JL 



FID 

liSFR 



-Lo- 



ses] i«lco3,timef; % COG-OFF TIME 

SCAN;St63»*NUMB£RSCAN; 
DO UNTIL SCAN*"/"; 



S[3]l3lF ACCUM,[l2:6]s" 

ELSE accum; 

SCANZ; 



Then co<iAccuMi:i2:6«63 ) 



SC33«»IF ACCUMttiSte]*" " ThENCS t 3 3*ACCUMC2^ »6I6 3 ) 
ELSE (St33&ACCU«Cl8«6U23)U 
scan; StsarwSra] a AC£UMC3Qi6it2H* amd yfar 
tjszuoooxnumberscan;* hours 

TJ*T+3600xNuMbE«SCAN;% MINUTES 

T» = T* aOxNuMBERSCAN;* SECONDS _„___^ 

ti«T+ nuMbi«scan;* 1/60 aceuNos 



XI T J 

€N0 PL INI 



%**^t^l^l^i^l^Hi^i^t■k■tl^l^l1nHl^l^,1,^l^l^,^l,*^t*l***^l**■|'*^t*^r**^t^,it*^l*^l*il■|,^t^,^r^i 
PROCEDURE OVAL(A); ARRAY AC03; 

% * * * * it * * IHi * * ** * 1i ** * * it 1,11 * in, in, li i, i, -k * i, * * * * * i, * ii iii, ii I, -k H in, iii, i, i, 1, 1, 

FILL AC*3 WITH 0CTl4ii(tl4i4i«|414i0CT14i4l4i4l4li»14> 

QCTHi<»l4i4iftl4t<»l* 

BOOLEAN PROCEDURE DCQMPCA»B); ARHAY A,Bt03; 

%************«***************• **********it**^******** ******* 

DCOMP}»cOMPaRE(3#AC0 3»BC03);X 



X****. ************** A ********** A************************ 

STREAM PROCEDURE MAKEOliKLEVELCL INE* ASTER I SK^LEVEL* 
SgGSjtMTHStDAYSMTIM)!* 



00100900 
OOIOIOOC 

_aaJL.tU-04-0- 




OOlOllOO 

00101200 

00101300- 

00101400 

00101500 

<3LQi.o.i^aa. 



00101700 
00101800 

xuiiii-iaoii. 



X St 5 3 M» LOG-OFF TIME 
X St63 I I* NO OF 0|SK SEGS 

i-*'* * *****»*.*** *%■».* »■* *******.**•***»*.*■* *^ *,*^i'*'** ***•*»* *■* * * 
BOOLEAN PROCEDURE DLlK(3); ARRAY SCOJ; 

COMMENT FORMATS THE DISK SORT RLCORd; 

*******************************iHir**iir***Tic*****ii,iiir***»j,*»* 

BEGIN 

DEFINE L«LOGR£Cf;« 

REAL T;* . : ^ . . : 

LABEL GET*XIT;X 
GETj 

-If-PISKREAD THEN BEGIN DLrNi=TRUL; GO XlT EMV, 



00102000 
001U210U 
.00102200- 
001U2300 
00102400 
00102500 
00102600 
00102700 
001U2 600 



00102900 
00103000 
01 3 10 -0- 



00103200 

00103300 

Q01O 3 4QO 

00103500 

00103600 

00 1 3 74W- 

00103600 

00103900 

0010400jOl-. 



00104100 
00104200 
00104300 



00104400 
00104500 
0Q104600 



00104700 
00104800 
QQ1040QQ 

00105000 
00105100 
00105200 



00105300 
00105400 
00105500 



00105600 
00105700 
00105800 



00105900 
00106000 
00106100 



00106200 
00106300 
00106400 



00106500 
00106600 
00106700 



VALUE ASTER I SK* LEVEL* SEGS^MTMS^UAYS/ TIM;* 

RFtilN ^ 



00106600 
00106900 
001U7 00 .- 



LOCAL oa;x 

STI»LnC ASTTRTSKti 



00107100 

00107200 
00107^00 



4 
S 
6 
/ 
8 
9 
10 
11 
12 
13 
14 
IS 

is" 

17 



2(UPSi;uPDi; DS:=7 CHR);X 

DSS«12 LIT " TOTALS "H 

UP DI j DA» «DIr DS}=fl Q\-\H}% Nf3 



-Siiii 



00107/jOO 
00107500 
00107600 



DI««DI+3JX 

SIt«Sl'i'6; DSt*2 CHRi 
STiqSi*6i nst»a r.ufii 



O S {"I IT"""i* 



MTHS 
DAYS 



00107700 
00107800 
00107900 



IM. 



SU»SI+2; 2(0S«*2CHK; D6J=LIT":"J; USi=2 CHHi» TIME 

di»=da; ds»s6 fill;* 

MAKFDISKLEVFllilt 



X************************** ******************************** 
PROCEDURE 01 SKLEVELC WHICH* SEGS# MTHS* days* TIM);* 
V A I.UF H HlrHtSEaSt MTH fi^DAYS fTI MJI 



ooioaooo 

00108100 

nnmfl2on 



19 
20 
21 



22 
23 
24 
2S 
26 
27 



REAL WHlCH*SEGS»MTriS,DAYS*TlM;A 
BFtilN - . — - _-_^^____. 



00108300 
00108400 
00108500 



INTEGER Tl 

blankout(line);x 

HAKFQISKLEVELfLT^E*A.STFRlSKrWHICH«-21#LEvEt.AHHY[v>iHTCHl, 



00108600 
00108700 
0Q 1U 8 60 4- 



DECVC8*T»sSECiS)*DECV(2*T:='^THS)'Ut;cVC2'T»' 

TIMER(TIM));X 

PRINTL I N E (LlNE* D t S KriPT); 3^ 



DAYS)* 



00108900 
00109000 
00 1 09100 



00109200 
001U9300 
Q0 1U 9 4 00 



END DISKLEVELJX 



X***************** ************#*%************* ************ 
STRFAM PROCCDURE MAKEQI SkoETAIlC LTNfi: » A»CT I M^UT 1M*SEG.S^ . 



00109500 
00109600 
00109700 



29 

30 



VALUE ctim/>ltim#segs*m*d»t;x 
a;********************** *»jt ****** ************* 

RFGTN 



************* 



00109800 
00109900 

001 inooo 



31 
32 
33 



BEGIN 

LOCAL DAiX 

nn»u i N EJ si'«a;x 



00110100 
00110200 
OQ11030Q 



34 
35 
36 

37" 

38 
39 



3CUPSI; Ds»a7 chr; 

UPSi; 2C0S«=2 CHR; 

$T ««LQC ctim; 



01 :=ui+2);% 
OS:=HT "/"); 



03:»2 chr; 



00110400 

00110500 

00110600- 



2(Si»»si+2; oii»Dl+3; 2(0S»»»2 chk; ds;=lit";"); 

0I««OI+5i DA»aOi; DS»»8 CHRl DllsDI+ajX 
SII»SI-^6iDSt# a CHRJ DSi*LIT'*t*'; 



DSJ«2 CHR);X 



0OUO700 
00110800 
QQ UQ 9Q0 



40 
41 
42 



sii-si+6; ds»»2Chr; 

DSIsLIT"'";X 

SIi«S l»g; 2 C PS»»2 CHR ; os:=u i T"»")j dS;= 2 ChH>X 



00111000 
OOUllOO 
QU12Q0 



Dii»M> osi»« fill;* 

END MAKE DlSKOEt ail; X 



X***'»#»»**'***#.#'*-t.*»»*****f:»^*»»*.*»l(t> *:*.*»♦>■ ***■»'«**#-*<*•*»** 



00111300 
OGi 1 1 4j00 
QolllSQQ 



47 
«8 



PROCEDURE DISKDETAIL(SaRTREC'MTHS#DAYS*TIM);X 

VALUE mths#days»tim; 

REAL TIM; INTEGER MTHS»DAYS>it 



00111600 
00111700 
00111800 



49 
50 

51 



ARRAY SORTREGtOlIX 



X* *********** • « * *****.******<*4r.* ***************************** 
BEGIN OEriNE AiSORTRECt; , _______„ 



00U19Q0 
00U2000 

oonzioo 



52 
53 
54 

55 

56 



INTEGER l;X 

blankout(linE);x 
makedi$kdetailcliime*a>timek(au3)*timencal5j j* 



00112200 
00112300 
QQ11240 Q 



DECV(8*l»*AC6] )*DECVC2#MTHS)*0EtV(2/DAYS)* 

TIMERCTIM));X 

PRINTLINECLINE*DISKRPT)>X 



00112500 
OQ 112600 
011 g 7 00 



# • 



h 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 



13 
14 
IS 



16 

17 



19 
20 
21 



22 
23 
24 
25 
26 
27 



28 
29 
30 



31 
32 
33 



34 
35 
36 



42 



45 



•8 



52 



55 
56 



END diskdetail;* 



'I,ii*****it*****'ti1,***1,-tii,*ir-li-i,*******ii*******i,li**i,*'kin,i,* 



PRUCEDURF, m nuTcfl»t)n 



VALUE 8;x 

BOOLEAN B; 
ARRAY AtOI? 



I TRUE IF LAST REC PRCCESSEE 

% SORTED orsK Lnfi R ec o rd 



%**iHftr1i************-k*1,*1iiHc*-kiiictHt*ii********iHt***i,**iHki,ifkl,i,i,i, 



BEUIN LABEL DET*THRU; 
LABEL RRKn - 



DEFINE 



rptmo 

RPTDA 
RPTDT 



-B. 



GT6*^% AC CUM REPORT MONTHS 
QT7«»X ACCtiM REPORT OAYS 
G T B > t X A C C liM R F PORT 1 1 M£ _ 



BPTDS s 6r9Jr#% ACCUM REPORT DlbK SEGi» 
USERMO bGT10#*5!; ACCUM UiJLR MONTHS 
USERDA »CiJll»,% ACCUM ll^l^H QAY.S . 



USERDT -fiTlSS^S! 
USeRDS *GTl3#?!i! 

NF antuttt 



ACCUM USER 
ACCUM USER 
NO. OF Fin 



TlNt 
DISK SEGS 

s PRDcrs^en 



NU 9GJ\51fi% NO QF USERS 
REAL CDATE*criME,LDATE#LTIME;X 
INTEGER MTH Sf OAYS? 



REAL Z*Ti% 
IF(NFls:NF.».n 
IF B THEN GO 



* i THEN GO 
BRKJX _ 



TO DETiX 



IF NOT 
BEGIN 
.3RK-1 



EQUAL(1»ACC]/H0LDKEY) THEN 
XNEW user ok end of MtPOHT 



USERDA*US|RDA+USeRDT DIV 5184000; 
USERDTtUSSROT MOD 5l84000# 
USFRMQ«.USFRMfH.USFftnA OTV 3li 



userdai-userda mod 3i; 

dlsklevel(user'userds»usen»^u,userua'us£hdr);!< 

RPTMntxRpTMn + llSFRMn; RPTDA;»RPTDAtiiSFRDAJi; 



RPTDti'RPtOT+USEROTi 

CLEAR(3»USERM0)iJ; 

IF NOT B THEN 



RPTOSt»RPTDS+US£R0Sil 



BEGIN NU»sNU+i;pUTHEAUEK{DliKRPT); 
END USER TOTAL ELSE GO TO DtT;X 
COMMENT END OF REPORT; 



GO uLT e.nd;» 



RPTDAlwRPTDA-^RPTOT OIV Sl8'*000>X 
RPTDT»««RPTDT MOO 5l6'*000;% 
RPTMOt»RPTMO»RliTDA DIV 3i;% 
RPTOAJaRPTDA MOO 31'X 



nriuM»»nriu/» wuu J I'* 

DlSKLEVEL(REPORT*HPTDS*RPTMO'RPTDA*RPTDT);* 
GO THRU;X 

0ETlC0ATE»»At33; 



L0ATE»8iMF10 & COATE £30t30H2ll* - 

IF LTlMEt»>H53 LSS CTlMet»A[03 THEN Z«»i;> 

IF LiNECTR GTR 68 THEN PUTHEADEHC 01 SKRPT ); X 

DISKDETAIL(A* 

MTHSI«OCV(LDATE.2)-UCV(COATE.2 3. 

DAYSI»0CV(LDATE*4)-UCV{CDATE'4)» 
TI«LTIME + ZJ<5184000-CTIM£);X 
USERMOI»USERMO*MThS; USERpAfUSEHPA + DAYSJ 
USERDT t=USERDT+T; USEROS : «USERDS+AC 6 ] ; % 



HOLDKEY[0]»»A[8];3; 

THRU» 



END dlout; 

X**ik*«*****«***« ************************** *************** 

PROCEOURE dlfinal; , 



go; 

oo; 

-,ao- 



12800 
12900 

•laono. 



oo; 
oo; 



13100 
13200 
13 300 



00 
00 

Jin 



13400 
13500 



00 : 

oo; 



13700 
13800 
1 3900 



00 
00 

JX£L 



UOOO 
14100 
H200 



00 

00 

-00- 



H300 
14400 
14500 



00 

00 

JUL 



14600 
14700 
14800- 



oo: 
oo; 
-a&- 



14900 
15000 
15100 



00 
00 



15200 

15300 



oo; 
oo; 

JLQJ 



15500 
15600 
15700- 



oo: 

oo: 

JKU 



15600 

15900 
1^000 



00 
00 



16100 
16200 



oo; 
oo: 
oo: 



16400 

16500 
16600 



003 
00 

oo: 

00 
00 

_M. 
00 
00 

oo; 

00 

00 
00 
00 : 



16700 
16800 
16900 
17000 
17100 
17200 



47300 
17400 
17500 



17600 
17700 

Uaoo 



17900 
16000 
18100 



oo: 

oo; 

_OiL 



18200 
18300 
1840Q 



00 

00 ; 

JlfiJ 



18500 
18600 
18700 



2 

3 
4 
S 
6 



BEGIN 

FORMAT £ ("THERE WEHt: 'M B f *' FTl.LS "y/t 



************** 



"#19*" DISK SEGMENTS");* 
'NO, OF USERS PROCESSED WASs'MS*/* 



"OCCUPYING 
FORMAT FBC 
"AVF« niSK SPACE PER USER t"ilt\)l% 



00U6800 
00118900 
00 119 .0-0 



M. .¥..!-.■.., — IU,.*-fcJr> kJU — M U t. F" Ij, I' V,*ii*UILl ■ ■...*■ J 

WRITE(PRNTC0BL]#F»GT1A-1#GT9);% 
WRITE (PRNT[0BL]*Ffi*GTlb>GT9/GTlbi;* 
E NU D L F I N A Uii ; 



00119100 
00U9200 
00119300 



00119400 
00119500 
00U96 00 



li 



9 
10 
11 
12 
13 
14 

'6_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

«2 

*3 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

COMMENT Mi:» SECTIdN - 07 - PARAMETER 

%i!ai%ti;ai%»x%%i:x»ai<yt%xt%»s%X3:a;ta;%ia^itt:t!t 



%%%%%%%%%%%%%%%%%%%%%%%% 
PROCESSING »:ij:; 

% x % x %%% %x% t%%% % %%%%%% % x% 



00119700 
00U9800 
00 11 9900 



COMMENT PARAMETERS ARE*' 

X OPTN 1 - "OS" • QNSIU fttP 

% OPTN 2 ' "TU " ' TERM INAL U 



ORT 

SE H RtPURT 



00120000 
00120100 

noi?020o 



9 

Q 



X 

X 

X 



OPTN 
OPTN 
OPTN 



3 - 
U • 
5 " 



"OL" 
"HL" 
"L IN E" " 



DISK 
H/U A 
LlUt. 



LUtiGl 
NAitS 
A N A L T 



N REPORT 

IS 

STS 



00120300 
00120400 
00120500 



X 
X 

X 



OPTN 
OPTN 
OPTN 



6 - 

7 - 



"ERR" - 
"MERGE"- 
" S UM" 



X*************************** 
PROCEDURE PROCESSPARAMSiX 

%****••**•**»**•*••******»•*********** 



ERROR ANALYSIS 

MERGE Ii^PUT 

OU TPUT aUMMAHY R ECORD Qn DISK 



00120600 
00120700 
1 208 



-oa 



M- 



*********** ****** **************** 



*********************** 



BEGIN 

FORMAT 



00120900 
00121000 
0Q121100 



F1("PARAMETERS")* 

F2 r'INV PARAMET E RCSJ,,,TkY AQ A Hn " ) ; 



00121200 
00121300 
00 1 2HQ Q 



INTEGER I,j; 

REAL P;X 

ARRA Y A Ll I M AXP A RA MS J 



0012X500 
00121600 
1121 



-oo: 



700 



LIST PARALISTCFtiR J'-- 1 STEP 1 UNT 
LABEL GET; 
GET; i F NUT C Qm r Q Q T iiIE N ^H i T lC T^X UTQ H ] 



IL MAXPARAMS DO AtJ] ); 



00121800 
00121900 
00122000 



REAO(TWXf//#PARALlST); J 
WHILE PJsAtJJsJ-m NEQ 

iT N rOMMF NT PR OcrS S PAR AME 



BFrr 



«sOiX 

DOX 
R AME TFR LT 



st ; 



00122100 

00122200 

.0012P300 



IF l:=MATCHCP*PARAi«. 

BEGIN COMMENT INVAL 

WRlTE,C T HXfF2); 



DS) = C Th 
ID PARANLT 



EN 

er; 



00122400 
00122500 
0122 6QO 



GO get; 

END ELSE CASr (I-l) 
RFGlM COMMFKiT SFT t 



OF 
flfl S A C C PR D I N Q T i i P A R A MET E R I 



00122700 
00122600 
Qni22Qnn 



ONSITET 
TERM IIS A 
niSKTBG 



CGJ=TRU 
LTQGJST 
t^TRUE.; 



e;» 

Rut;x 

% 



00123000 
00123100 
00123200 



HLTGSt* 
LINETOG 
E RRT O fit 



TRUEIX 

!»true;! 



00123300 
00123400 
Q0123500 



•6 
»7 
48 
49 
SO 
51 
52 
53 
54 
55 
56 

5. 



mergetd 

SUMTQGJ 
END TOG SETT 



GJsTRUEj 

strue; 
tng; 



00123600 
00123700 
00123800 



:ter list; 

y. *.**•»» »■* ♦■•* * it *'» *,*.*;.♦,».* *»***********.**** 



END PROCESSING Of PARAME' 

END prqc£sSfaramS;x 



*****************! 



00123900 
00124000 

-00124100 



PROCEDURE getmerge;x 

COMMENT ASKS FOR AND SETS UP MEHGE 
i**^****************************»***** 



FILE id; 

****************** 



BEGIN 

FORMAT FTCMERGE 
IF NOT CQMRnn THFN 



00124200 
00124300 
1 244 00 



FILE MFID...")^X 



00124500 
00124600 
001^84610 



• • 



>r 



9 
10 
II 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 

29 



30 

32 
33 



34 
35 
36 
37" 



39 

40 
41 
42 



«S 
•6 

I 47 
•8 
•9 
50 
61 

52" 
53 
S4 



ti 



WRITECTWX[STOP]*FT)>* 
READ(TWX»/^MER(SEID3;3! 
FILL MFHGFFILF WITH Me.RaF' lOf "l. U u " ; : 



END getmerge;x 

X****** ********* ******** **1^ «****«* ft *l!'****************4k*#* 

REAL PRnCEDURF FlKintHntai 



%********•********************•*♦•»****»***** 
BE&IN 

RFAl lfjj% 



************ 



FORMAT FN(>1.0G MF IDCS ) , . ," ) J» 

LABEL AGAIN»INS;X 
I F NnT f^QMRnO THEN 



WRITE(TWXtSTOP]^FN)i« 

READ(TWXtNQ]);» 

PTRfGEiTARSAUDRCTwXCO))?!!; 



IF FIDP»0 THEN GO TO InS;X 
FOR IJ»0 STEP 1 UNTIL FIUP"! 
DO IF ACCUM lSS riDQCI] THEN 



BEGIN COMMENT MOVE EM \iP i 

FOR JI»FIDP STEP -1 UNTIL I 
00 FlOQEJ»lUsFIDQEj3J 



end; 



GO iNs;x 



aJ^J-FIDPt=FlDP^1, ? f luQf TI/'ACCu M;^ 



END FILE QUEUE MAINTENANCEIX 

IF RESULT NEQ GPMk THEN GO TO AGAIN; 

FTNnLnflJ aFT DQCQIta! ■ 



END FINDLOG/X 

%**************************************************«*ih*** 
PROCEDURE GETwORK;X 



X****************************** ♦* *************** ***** * * * * 
BE'GIN 
LABEL AGATNiX . 



REAL I»T;x 
INTEGER N;X 



STREAM PROCEDURE MAKEFIDL INE(N*FlDS»T06f M£RG' ARRY )! X 

VALUE merg»n#tbg;x 



BEGIN di«sarry; SII,FIDS;X 

DSI = 19 LIT'TILESJ CURRENT..."; 

Ntupsijupnii DS»37 chp; ns;=:2 lit 

TOG ( 01 1 .ARiSiY) 1 I »D I + 63i X 

oii«or*<»7; sii«LOc merg;x 

nSl«8 LITHMFRGF...W; nS».WDS)iX 



END MAKE FIDLINEU 
AGAiNt 
IF MFID<»rikOL 06 ^FU Q THFN 



BEGIN FILL DISK K»ITH MFID*'VOG «, 
READ (DISK [NO ]#lO^LOGRECC*))iX 

flEGlNTTMF tyL OfiRFCCO] «TTMFF iX 

PROCESSPARAMS;X 

IF MERGET06 THEN GETMERGE/* 

NFIDLlNES»aFIDP DiV 9 * I } 3, 



FOR 11*0 STEP 1 UNTIL NFIOLlNES 

DO BLANK0UT(FI0LINECI**3);X 

FOR TtnO STEP 1 UNTIL NFIDLINFS"? 



OClii4700 



00125000 
00125100 
QQ125Pnn 



00125300 
00125400 
00125500 



AQAINI 

WHILE SCAN«NUM8ERV 00 
RFfilN CQMMFNT MAINTAiW FTLF itfgUE IN ASC QRDERJ 

Tr- r»rM3ii.n Tlf-h r- r-, -r n t»,c«* 



00125600 
00125700 
00125710 
00125800 
00125900 
00126000 



00126100 
00126200 
Q0126.10O 



00126400 
00126500 
00126600 

00126700 
00126800 
0126 9QQ 



00127000 
OC127100 

-OiUiZ^OH- 



00127300 
00127400 
OOt27goo 

00127600 
00127700 
QQ127aQn _. 



00127900 

ooisaooo 

00126100. 



00128200 
00128300 
QQ 1 2 6 4Q 



00128500 
00128600 
00128700 



00128800 
00128900 
Q0 1 29Q 0Q 



00129100 
0^0129200 
001 29 300 



00129400 
00129500 
0012 96 00. 



00129700 
00129800 
0Q1299Q0 



00130000 
00130100 
00130200 



00130300 
0013O400 
^ 013 Q 50Q 



•n* 



h 



9 
10 
11 
12 
13 
14 
(15 



he 

17 
18 
19 



20 
21 



22 
23 
24 
25 
26 
27 









28 
29 
30 

31 ' 
32 
33 
34 

35 
36 

37 ~ 



38 
39 
«0 
41 
42 
«" 



45 
46 
47 
18 
49 
50 
51 
52 
i3 
S4 
SS 



DO BEGIN 

MAKEFIDLlNE(9,FI(JatT]/0,0»FlULlNECl»*n;* 

lt^J*<i}%. , 



end;i 

makefiduin£cn}«fidp mod 1 0*fi doc t j *mergetog*mergeid* 

FIOLINFCNFIDI 1 NFS»1 * *.) 1 J it 



00130600 
00130700 
OQUQaOQ, 



00130900 
00131000 
Q01311Q0 







BEGIN 

DEFINE Y*DATE3#*D»DATE2»'MsDATEi»lI 
INTEG ER H,P*Qilt __^^_^ 



REAL i;* 
ARRAY A[Ol63n 

|.,ARFI. n^^Tfii; 



FILL At*3 WITH " 
" MON*** 
•• TU FS" » 



SUN' 



"WEDNES"* 
" THURS"* 
" FRI'S 



« SATURT 
Y»«TIME(0);% 
D«^Y.r30t63xlOO♦Y.^36t(!■]X1n^^Y.^4?)63J 



Y»»Y.[ia8 6]xlO + Y.[24:6JJ«SAvE. 

n»-i;x 

FOR H»»31>IF Y MOn 4 =0 THEr^ P'^ LlSK 28.3i.i0,3). 



30*31*31*30*31*30*31 

DO IF LEQ <DAYSlNCl«sI4.Ur»H) Then GU QWT ELSE 

RFGTN Dtsn-HJ MtaM-fl fNt^ti: 



OWTtiF M LSS 2 THEN BEGIN Q: 
BEGIN QSsM-i; P:5Y END^t 



iM+n; pj = Y-i im el^e 



nAYI»AC((Qx26*2) DIV lO+O+P+P . t 36 s 10 3+1 ) HQO 7Ji% 
FILL UNITC*3 WITH '♦MTA*S"MTB"*"MTC«*"MTD'S 
«'MTF"«"MTr'».**MTMW.**MTJ>*.»MTK««"MTt ".**MTM'^. 

•'MTP''*"MTP"*«MTR"*"MTS"*"MTT"*"DKA"*"DRB"» 
'«DKA"»"DKB"*"LPA","LPB"*"CPA"*"CHA"*"CRa"* 

''SPQ'V#''Ppa''>"pra".'^pph"."prr"."l)Ca";% 



*"* 



FILL ASTER iSkc* 3 WITH 

Fit I t FVFI AllRYf #1 WITM wpRdfiftAM^* 

"SESSiaN"*»»USER "*"REPURT "i% 

FILL 0N0FFARRYt*3 WITH "ON LINE "*"CFF LiNE"i» 

FILL PARAWDSE*3 WITH MAXPARAM* "05", "TU", "PL"* 



'♦HL''**'LlNE%»'ERR"*"MER6E"*"SUW''iX 

8lankout(uline);« 

ENP INITlALIZFfl ^_^_ 

%**************************************i,***i,**ln,**ti,*i,i,i, 

comment outer block; 

i*****t************************ 



%'ii************ii**********i,*' 



initialize) 
getwork;x 

IF TERMINALTOG or QNSITETQG OR 6UMT0G THEN 



00132100 
00132200 
00132^00 



00132400 
00132500 

00133000 
00133100 
0013 3200 



00133300 
00133400 
00133^00 



00133600 
00133700 
0Q133fl0n 



00133900 

00134000 
QQ1341QQ 



00134200 
00134300 



00134500 
00134600 
00134700 



00134800 
00134900 



00135100 
00135200 
0C13530Q 



00135400 
0^135500 
001.1'i>600 



00135700 
0O135800 
Q 013590 Q 



00136000 

00136100 

-G01362Q0 



00136300 
00136400 
Q0U65QQ 



00136600 
0013.6700 
QOl36flQ0 



• • 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



'3 
14 
15 



19 
20 
21 



22 



24 
2S 



26 
27 



BEGIN COMMENT REMCTE AND/OR lOC>4L REPORTis;* 

PTRBASElsGETABSADDWCLQCiRECtn );;« 
I F S UMino THEN PUTHF . A UfcHt U. '^ f" Rf 



leio. 



JU*- 



IF TERMINALTOG OR DNSITETOG THEN PuTHEADER (ONSITE ) U 
SORT(OSOUT>OSIN»0*OSVAl*OSCOMP#QSR£CSI,4000);X 
NFXTPAGf (ONSlTf ); nSflNAlM .__ 



hlana; HLTU6:»f alse;^ 
errana; errtog«=false;» 

IF TERMINALTTG QR LiNETUG 



THEN 



BEGIN 
END REMOTE 
IF Di SKTO iL 



IINEANa; iINETDG»»FAL3E END/* 

toe At reports;* 



BEGIN COMMENT DISK LOGGING RtPOhT; 

MFIDJ=FlDQCFIOP:=0];% 
FILL DT$K WITH MFlQ/li 



Gl.EAR<9*ST6);« 
PAGENOi'LlNEcTRSaO;* 
PyTHFADERfDTSKRPtlJX 



FND 



SORTCDLOUT*DL.IN,OM3VAL*QCQMP,i',4QOO);* 
NEXTPAGE(DISKRPT)/ ULFINaL;% 
DI5K inGGINGfH; 



IF HLTOG OR LINET06 OR ERRTOG THEN % 
BEGIN CLEANER I •TRuEi Ct-EANERt «Oi>lN(HLQ ); 
IF HLTQG THFN HLA^A;^i 



ENDIX 



IF LINETOG THEN LINLANaU 
IF ERRTOG THEN ERRANA;* 
FNU, JK-Ilf. PR OGRAM 



enu;eno. last card on ocroing tape 

DEFINE MOREDPBlTStMOREOPBITSl J^UVt MOHEt3PBlTSW3i i#, 
ni, AYU.SE0t0LAYUSEDnsuVE(ILfcYliMFDl«32llt; 



00136900 
00137000 



00137200 
00137300 
001 3 7 /1 00 



00137500 

OOU7600 

-SUQl 3 7 7 ,QJI 



00137800 
00137900 

QQ1380QQ 

00136100 
00138200 
QOlifl-JdO 



00U8400 
00138500 

QQiaBftOn 



00138700 
00138800 
0nlJlil90G 



00139000 
00139100 
Q0139 ?Q iL 



00139300 
00139400 

-iuj.i-a.9.5ao 



99999999 

00*70510 

.434X4-7.0^20 



29 
30 
31 ~ 
32 

a 

34 

3& 

36 

37" 

38 

39 

40 

41 

«2 

43"" 

•4 

*S 

16 

♦7 

«8 

49 ~ 

50 

61 

52 

53 

S4 



a 



58 ' 
5? 



• • 



"•rn# 



LABEL OOOOOOOOOPRINTtKOOWSOyeCC LXECUTt LiB JEC 1/RE ADIF ILE SUURCf:FlLt.«SYMBUL/LOG A^ / END*- 



OBJECT /READ 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

lis 

16 

17 

IS 

IS 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

3S 

36 

37" 

38 

39 

40 

41 

42 

43" 



*5 

46 

47 

«8 

49 

50 ' 

51 

52 

53 

55 
56 



